home *** CD-ROM | disk | FTP | other *** search
/ BigMax 21 / BigMax nº 21 Super EF2000 / BigMax nº 21 Super EF2000.iso / extras.dxr / 00018.ls < prev    next >
Encoding:
Text File  |  1998-06-25  |  977 b   |  40 lines
  1. on startMovie
  2.   global gFromWhere, gToWhere
  3.   if netPresent() = 0 then
  4.     alert("ATEN├ç├âO : AS OP├ç├ÆES DE ACESSO ├Ç INTERNET N├âO ESTAR├âO HABILITADAS. CONSULTE O SUPORTE T├ëCNICO.")
  5.   else
  6.     beep()
  7.   end if
  8.   repeat with counter = 40 to 70
  9.     set the visible of sprite counter to 0
  10.   end repeat
  11.   if the pathName contains "D:\" then
  12.     set gFromWhere to "D:\"
  13.   else
  14.     if the pathName contains "E:\" then
  15.       set gFromWhere to "E:\"
  16.     else
  17.       if the pathName contains "F:\" then
  18.         set gFromWhere to "F:\"
  19.       else
  20.         if the pathName contains "G:\" then
  21.           set gFromWhere to "G:\"
  22.         else
  23.           if the pathName contains "H:\" then
  24.             set gFromWhere to "H:\"
  25.           else
  26.             if the pathName contains "I:\" then
  27.               set gFromWhere to "I:\"
  28.             end if
  29.           end if
  30.         end if
  31.       end if
  32.     end if
  33.   end if
  34. end
  35.  
  36. on RodarPrograma theprog
  37.   global gFromWhere, gToWhere
  38.   open(theprog)
  39. end
  40.